*  FILE NAME: EODP6.PRG
*  BY:
*  DATE: April 1, 1996
*  DESC:
*  CALLED BY:
*  DATA FILES:
set proc to sospro
F1='revenue'
F2='revenuey'
F3='revenueV'
F4='revenue1'


sele 1
SET EXCLU OFF
USE &DR1&F2
IF NET_USE('&DR1&F2',.T.,'1',10)
   appen from &dr1&f1 for subs(inv_stat,1,1)<>'V'
ENDIF
UNLOCK

sele 1
SET EXCLU OFF
USE &DR1&F4
IF NET_USE('&DR1&F4',.T.,'1',10)
   appen from &dr1&f1 for subs(inv_stat,1,1)<>'V'
ENDIF
UNLOCK


SELE 1
SET EXCLU OFF
USE &DR1&f3
IF NET_USE('&DR1&F3',.T.,'1',10)
   appen from &dr1&f1 for subs(inv_stat,1,1)='V'
ENDIF
UNLOCK

SELE 1
SET EXCLU OFF
USE &DR1&F1
IF NET_USE('&DR1&F1',.T.,'1',10)
   ZAP
ENDIF
UNLOCK
CLOSE ALL

return
*Formatted by: Herman T Ver. 7.1  on April 1, 1996.
